/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_12 / extras / astronomy / comet

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 16 20 f4 20 2a | 2a 20 20 20 3e 43 4f 4d |.... . *|*   >COM|
|00000010| 45 54 20 20 2a 2a 0d 00 | 14 06 20 3a 0d 00 1e 83 |ET  **..|.. :....|
|00000020| 20 f4 20 54 68 69 73 20 | 72 6f 75 74 69 6e 65 20 | . This |routine |
|00000030| 63 61 6c 63 75 6c 61 74 | 65 73 20 74 68 65 20 65 |calculat|es the e|
|00000040| 63 6c 69 70 74 69 63 20 | 63 6f 6f 72 64 69 6e 61 |cliptic |coordina|
|00000050| 74 65 73 20 6f 66 20 61 | 20 63 6f 6d 65 74 20 61 |tes of a| comet a|
|00000060| 74 20 61 20 20 20 20 20 | 20 20 20 20 20 67 69 76 |t a     |     giv|
|00000070| 65 6e 20 69 6e 73 74 61 | 6e 74 20 66 72 6f 6d 20 |en insta|nt from |
|00000080| 69 74 73 20 70 61 72 61 | 62 6f 6c 69 63 20 6f 72 |its para|bolic or|
|00000090| 62 69 74 61 6c 20 65 6c | 65 6d 65 6e 74 73 2e 0d |bital el|ements..|
|000000a0| 00 28 42 20 f4 20 20 20 | 20 2a 2a 2a 2a 2a 2a 2a |.(B .   | *******|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000e0| 2a 0d 00 32 06 20 3a 0d | 00 3c 0e 20 de 20 46 4c |*..2. :.|.<. . FL|
|000000f0| 41 47 28 37 29 0d 00 46 | 1e 20 dd a4 52 41 44 28 |AG(7)..F|. ..RAD(|
|00000100| 57 29 3d 31 2e 37 34 35 | 33 32 39 32 35 32 45 2d |W)=1.745|329252E-|
|00000110| 32 2a 57 0d 00 50 1d 20 | dd a4 44 45 47 28 57 29 |2*W..P. |..DEG(W)|
|00000120| 3d 35 2e 37 32 39 35 37 | 37 39 35 31 45 31 2a 57 |=5.72957|7951E1*W|
|00000130| 0d 00 5a 1c 20 dd a4 52 | 4f 55 28 58 2c 59 29 3d |..Z. ..R|OU(X,Y)=|
|00000140| a8 28 58 2a 59 2b 30 2e | 35 29 2f 59 0d 00 64 23 |.(X*Y+0.|5)/Y..d#|
|00000150| 20 dd a4 41 53 4e 28 57 | 29 3d 99 28 57 2f 28 b6 | ..ASN(W|)=.(W/(.|
|00000160| 28 31 2d 57 2a 57 29 2b | 31 45 2d 32 30 29 29 0d |(1-W*W)+|1E-20)).|
|00000170| 00 6e 21 20 dd a4 41 43 | 53 28 57 29 3d 31 2e 35 |.n! ..AC|S(W)=1.5|
|00000180| 37 30 37 39 36 33 32 37 | 2d a4 41 53 4e 28 57 29 |70796327|-.ASN(W)|
|00000190| 0d 00 78 18 20 f1 3a 46 | 4c 41 47 28 30 29 3d 31 |..x. .:F|LAG(0)=1|
|000001a0| 3a 54 50 49 3d 32 2a af | 0d 00 82 0e 20 f1 22 43 |:TPI=2*.|.... ."C|
|000001b0| 6f 6d 65 74 73 22 0d 00 | 8c 06 20 f1 0d 00 96 28 |omets"..|.. ....(|
|000001c0| 20 f1 22 50 6c 65 61 73 | 65 20 69 6e 70 75 74 20 | ."Pleas|e input |
|000001d0| 70 61 72 61 62 6f 6c 69 | 63 20 65 6c 65 6d 65 6e |paraboli|c elemen|
|000001e0| 74 73 3a 22 0d 00 a0 2d | 20 e8 22 45 70 6f 63 68 |ts:"...-| ."Epoch|
|000001f0| 20 6f 66 20 70 65 72 69 | 68 65 6c 69 6f 6e 20 20 | of peri|helion  |
|00000200| 28 44 2c 4d 2c 59 29 22 | 3b 44 59 2c 4d 4e 2c 59 |(D,M,Y)"|;DY,MN,Y|
|00000210| 52 0d 00 aa 24 20 e8 22 | 50 65 72 69 68 65 6c 69 |R...$ ."|Periheli|
|00000220| 6f 6e 20 64 69 73 74 61 | 6e 63 65 20 20 28 41 55 |on dista|nce  (AU|
|00000230| 29 22 3b 51 50 0d 00 b4 | 28 20 e8 22 49 6e 63 6c |)";QP...|( ."Incl|
|00000240| 69 6e 61 74 69 6f 6e 20 | 6f 66 20 6f 72 62 69 74 |ination |of orbit|
|00000250| 20 28 64 65 67 2e 29 22 | 3b 49 4e 43 30 0d 00 be | (deg.)"|;INC0...|
|00000260| 28 20 e8 22 41 72 67 75 | 6d 65 6e 74 20 6f 66 20 |( ."Argu|ment of |
|00000270| 70 65 72 69 68 65 6c 69 | 6f 6e 28 64 65 67 2e 29 |periheli|on(deg.)|
|00000280| 22 3b 41 50 30 0d 00 c8 | 28 20 e8 22 4c 6f 6e 67 |";AP0...|( ."Long|
|00000290| 2e 20 6f 66 20 61 73 63 | 2e 20 6d 6f 64 65 20 20 |. of asc|. mode  |
|000002a0| 20 20 28 64 65 67 2e 29 | 22 3b 4f 4d 30 0d 00 d2 |  (deg.)|";OM0...|
|000002b0| 31 20 e8 22 2e 2e 2e 20 | 72 65 66 65 72 72 65 64 |1 ."... |referred|
|000002c0| 20 74 6f 20 65 70 6f 63 | 68 20 28 44 2c 4d 2c 59 | to epoc|h (D,M,Y|
|000002d0| 29 22 3b 44 59 41 2c 4d | 4e 41 2c 59 52 41 0d 00 |)";DYA,M|NA,YRA..|
|000002e0| dc 1f 20 46 4c 41 47 28 | 31 29 3d 30 3a f2 4a 75 |.. FLAG(|1)=0:.Ju|
|000002f0| 6c 64 61 79 3a 44 4a 44 | 30 3d 44 4a 44 0d 00 e6 |lday:DJD|0=DJD...|
|00000300| 22 20 49 4e 43 30 3d a4 | 52 41 44 28 49 4e 43 30 |" INC0=.|RAD(INC0|
|00000310| 29 3a 41 50 30 3d a4 52 | 41 44 28 41 50 30 29 0d |):AP0=.R|AD(AP0).|
|00000320| 00 f0 12 20 4f 4d 30 3d | a4 52 41 44 28 4f 4d 30 |... OM0=|.RAD(OM0|
|00000330| 29 0d 00 fa 06 20 f1 0d | 01 04 20 20 e8 22 44 61 |).... ..|..  ."Da|
|00000340| 74 65 20 28 44 2c 4d 2c | 59 29 22 3b 44 59 42 2c |te (D,M,|Y)";DYB,|
|00000350| 4d 4e 42 2c 59 52 42 0d | 01 0e 16 20 f2 52 65 64 |MNB,YRB.|... .Red|
|00000360| 65 6c 6d 74 3a f2 43 6f | 6d 65 74 3a f1 0d 01 18 |elmt:.Co|met:....|
|00000370| 21 20 f1 22 48 65 6c 69 | 6f 63 65 6e 74 72 69 63 |! ."Heli|ocentric|
|00000380| 20 63 6f 6f 72 64 69 6e | 61 74 65 73 3a 22 0d 01 | coordin|ates:"..|
|00000390| 22 1d 20 58 3d a4 44 45 | 47 28 4c 44 29 3a 53 57 |". X=.DE|G(LD):SW|
|000003a0| 31 3d 31 3a f2 4d 69 6e | 73 65 63 0d 01 2c 38 20 |1=1:.Min|sec..,8 |
|000003b0| f1 8a 31 30 29 3b 22 6c | 6f 6e 67 69 74 75 64 65 |..10);"l|ongitude|
|000003c0| 20 28 44 2c 4d 2c 53 29 | 3a 22 3b 8a 33 35 29 3b | (D,M,S)|:";.35);|
|000003d0| 53 24 3b 58 44 3b 22 20 | 22 3b 58 4d 3b 22 20 22 |S$;XD;" |";XM;" "|
|000003e0| 3b 58 53 0d 01 36 18 20 | 58 3d a4 44 45 47 28 50 |;XS..6. |X=.DEG(P|
|000003f0| 53 49 29 3a f2 4d 69 6e | 73 65 63 0d 01 40 38 20 |SI):.Min|sec..@8 |
|00000400| f1 8a 31 30 29 3b 22 6c | 61 74 69 74 75 64 65 20 |..10);"l|atitude |
|00000410| 20 28 44 2c 4d 2c 53 29 | 3a 22 3b 8a 33 35 29 3b | (D,M,S)|:";.35);|
|00000420| 53 24 3b 58 44 3b 22 20 | 22 3b 58 4d 3b 22 20 22 |S$;XD;" |";XM;" "|
|00000430| 3b 58 53 0d 01 4a 31 20 | f1 8a 31 30 29 3b 22 72 |;XS..J1 |..10);"r|
|00000440| 61 64 69 75 73 20 76 65 | 63 74 6f 72 28 41 55 29 |adius ve|ctor(AU)|
|00000450| 3a 22 3b 8a 33 35 29 3b | a4 52 4f 55 28 52 2c 31 |:";.35);|.ROU(R,1|
|00000460| 30 30 30 29 0d 01 54 21 | 20 f1 3a f1 22 47 65 6f |000)..T!| .:."Geo|
|00000470| 63 65 6e 74 72 69 63 20 | 63 6f 6f 72 64 69 6e 61 |centric |coordina|
|00000480| 74 65 73 3a 22 0d 01 5e | 18 20 58 3d a4 44 45 47 |tes:"..^|. X=.DEG|
|00000490| 28 4c 41 4d 29 3a f2 4d | 69 6e 73 65 63 0d 01 68 |(LAM):.M|insec..h|
|000004a0| 38 20 f1 8a 31 30 29 3b | 22 6c 6f 6e 67 69 74 75 |8 ..10);|"longitu|
|000004b0| 64 65 20 28 44 2c 4d 2c | 53 29 3a 22 3b 8a 33 35 |de (D,M,|S):";.35|
|000004c0| 29 3b 53 24 3b 58 44 3b | 22 20 22 3b 58 4d 3b 22 |);S$;XD;|" ";XM;"|
|000004d0| 20 22 3b 58 53 0d 01 72 | 18 20 58 3d a4 44 45 47 | ";XS..r|. X=.DEG|
|000004e0| 28 42 45 54 29 3a f2 4d | 69 6e 73 65 63 0d 01 7c |(BET):.M|insec..||
|000004f0| 38 20 f1 8a 31 30 29 3b | 22 6c 61 74 69 74 75 64 |8 ..10);|"latitud|
|00000500| 65 20 20 28 44 2c 4d 2c | 53 29 3a 22 3b 8a 33 35 |e  (D,M,|S):";.35|
|00000510| 29 3b 53 24 3b 58 44 3b | 22 20 22 3b 58 4d 3b 22 |);S$;XD;|" ";XM;"|
|00000520| 20 22 3b 58 53 0d 01 86 | 39 20 f1 8a 31 30 29 3b | ";XS...|9 ..10);|
|00000530| 22 64 69 73 74 2e 20 66 | 72 6f 6d 20 45 61 72 74 |"dist. f|rom Eart|
|00000540| 68 20 20 20 28 41 55 29 | 3a 22 3b 8a 33 35 29 3b |h   (AU)|:";.35);|
|00000550| a4 52 4f 55 28 52 48 4f | 2c 31 30 30 30 29 0d 01 |.ROU(RHO|,1000)..|
|00000560| 90 21 20 58 3d 4c 41 4d | 3a 59 3d 42 45 54 3a 53 |.! X=LAM|:Y=BET:S|
|00000570| 57 33 3d 2d 31 3a 46 4c | 41 47 28 35 29 3d 30 0d |W3=-1:FL|AG(5)=0.|
|00000580| 01 9a 15 20 46 4c 41 47 | 28 37 29 3d 30 3a f2 45 |... FLAG|(7)=0:.E|
|00000590| 71 65 63 6c 0d 01 a4 19 | 20 58 3d a4 44 45 47 28 |qecl....| X=.DEG(|
|000005a0| 50 2f 31 35 29 3a f2 4d | 69 6e 73 65 63 0d 01 ae |P/15):.M|insec...|
|000005b0| 3b 20 f1 8a 31 30 29 3b | 22 72 69 67 68 74 20 61 |; ..10);|"right a|
|000005c0| 73 63 65 6e 73 69 6f 6e | 20 28 48 2c 4d 2c 53 29 |scension| (H,M,S)|
|000005d0| 3a 22 3b 8a 33 35 29 3b | 58 44 3b 22 20 22 3b 58 |:";.35);|XD;" ";X|
|000005e0| 4d 3b 22 20 22 3b 58 53 | 0d 01 b8 16 20 58 3d a4 |M;" ";XS|.... X=.|
|000005f0| 44 45 47 28 51 29 3a f2 | 4d 69 6e 73 65 63 0d 01 |DEG(Q):.|Minsec..|
|00000600| c2 3e 20 f1 8a 31 30 29 | 3b 22 64 65 63 6c 69 6e |.> ..10)|;"declin|
|00000610| 61 74 69 6f 6e 20 20 20 | 20 20 28 44 2c 4d 2c 53 |ation   |  (D,M,S|
|00000620| 29 3a 22 3b 8a 33 35 29 | 3b 53 24 3b 58 44 3b 22 |):";.35)|;S$;XD;"|
|00000630| 20 22 3b 58 4d 3b 22 20 | 22 3b 58 53 0d 01 cc 29 | ";XM;" |";XS...)|
|00000640| 20 45 4c 3d a4 41 43 53 | 28 2d 31 2a 43 59 2a 9b | EL=.ACS|(-1*CY*.|
|00000650| 28 4c 41 4d 2d 4c 47 29 | 29 3a 45 4c 3d a4 44 45 |(LAM-LG)|):EL=.DE|
|00000660| 47 28 45 4c 29 0d 01 d6 | 32 20 f1 22 53 6f 6c 61 |G(EL)...|2 ."Sola|
|00000670| 72 20 65 6c 6f 6e 67 61 | 74 69 6f 6e 20 28 64 65 |r elonga|tion (de|
|00000680| 67 2e 29 3a 22 3b 8a 33 | 35 29 3b a4 52 4f 55 28 |g.):";.3|5);.ROU(|
|00000690| 45 4c 2c 31 30 30 29 0d | 01 e0 06 20 f1 0d 01 ea |EL,100).|... ....|
|000006a0| 17 20 e8 22 41 67 61 69 | 6e 20 28 59 2f 4e 29 22 |. ."Agai|n (Y/N)"|
|000006b0| 3b 41 4e 24 0d 01 f4 10 | 20 e7 20 41 4e 24 3d 22 |;AN$....| . AN$="|
|000006c0| 4e 22 20 e0 0d 01 fe 1b | 20 e8 22 4e 65 77 20 63 |N" .....| ."New c|
|000006d0| 6f 6d 65 74 20 28 59 2f | 4e 29 22 3b 41 4e 24 0d |omet (Y/|N)";AN$.|
|000006e0| 02 08 1b 20 e7 20 41 4e | 24 3d 22 59 22 20 8c 20 |... . AN|$="Y" . |
|000006f0| 8d 74 56 40 20 8b 8d 64 | 7a 40 0d 02 1c 06 20 3a |.tV@ ..d|z@.... :|
|00000700| 0d 02 26 0d 20 dd f2 4d | 69 6e 73 65 63 0d 02 30 |..&. ..M|insec..0|
|00000710| 1d 20 e7 20 53 57 31 3d | 31 20 f2 4d 69 6e 73 65 |. . SW1=|1 .Minse|
|00000720| 63 5f 49 6e 74 65 67 65 | 72 73 0d 02 3a 1d 20 e7 |c_Intege|rs..:. .|
|00000730| 20 53 57 31 3d 2d 31 20 | f2 4d 69 6e 73 65 63 5f | SW1=-1 |.Minsec_|
|00000740| 44 65 63 69 6d 61 6c 0d | 02 44 06 20 e1 0d 02 4e |Decimal.|.D. ...N|
|00000750| 06 20 3a 0d 02 58 16 20 | dd f2 4d 69 6e 73 65 63 |. :..X. |..Minsec|
|00000760| 5f 49 6e 74 65 67 65 72 | 73 0d 02 62 1d 20 53 4e |_Integer|s..b. SN|
|00000770| 3d b4 28 58 29 3a 58 50 | 3d 94 28 58 29 3a 58 44 |=.(X):XP|=.(X):XD|
|00000780| 3d a8 28 58 50 29 0d 02 | 6c 19 20 41 3d 28 58 50 |=.(XP)..|l. A=(XP|
|00000790| 2d 58 44 29 2a 36 30 3a | 58 4d 3d a8 28 41 29 0d |-XD)*60:|XM=.(A).|
|000007a0| 02 76 1c 20 58 53 3d a8 | 28 28 41 2d 58 4d 29 2a |.v. XS=.|((A-XM)*|
|000007b0| 36 30 30 2b 30 2e 35 29 | 2f 31 30 0d 02 80 0b 20 |600+0.5)|/10.... |
|000007c0| 53 24 3d 22 2b 22 0d 02 | 8a 16 20 e7 20 53 4e 3d |S$="+"..|.. . SN=|
|000007d0| 2d 31 20 20 8c 20 53 24 | 3d 22 2d 22 0d 02 94 06 |-1  . S$|="-"....|
|000007e0| 20 e1 0d 02 9e 06 20 3a | 0d 02 a8 15 20 dd f2 4d | ..... :|.... ..M|
|000007f0| 69 6e 73 65 63 5f 44 65 | 63 69 6d 61 6c 0d 02 b2 |insec_De|cimal...|
|00000800| 0a 20 53 4e 3d 2b 31 0d | 02 bc 21 20 e7 20 58 44 |. SN=+1.|..! . XD|
|00000810| 3c 30 20 84 20 58 4d 3c | 30 20 84 20 58 53 3c 30 |<0 . XM<|0 . XS<0|
|00000820| 20 8c 20 53 4e 3d 2d 31 | 0d 02 c6 22 20 58 44 31 | . SN=-1|..." XD1|
|00000830| 3d 94 28 58 44 29 3a 58 | 4d 31 3d 94 28 58 4d 29 |=.(XD):X|M1=.(XM)|
|00000840| 3a 58 53 31 3d 94 28 58 | 53 29 0d 02 d0 23 20 58 |:XS1=.(X|S)...# X|
|00000850| 3d 28 28 28 28 58 53 31 | 2f 36 30 29 2b 58 4d 31 |=((((XS1|/60)+XM1|
|00000860| 29 2f 36 30 29 2b 58 44 | 31 29 2a 53 4e 0d 02 da |)/60)+XD|1)*SN...|
|00000870| 06 20 e1 0d 02 e4 06 20 | 3a 0d 02 ee 0d 20 dd f2 |. ..... |:.... ..|
|00000880| 4a 75 6c 64 61 79 0d 02 | f8 12 20 e7 20 46 4c 41 |Julday..|.. . FLA|
|00000890| 47 28 31 29 3d 31 20 e1 | 0d 03 02 20 20 4d 4e 31 |G(1)=1 .|...  MN1|
|000008a0| 3d 4d 4e 3a 59 52 31 3d | 59 52 3a 46 4c 41 47 28 |=MN:YR1=|YR:FLAG(|
|000008b0| 31 29 3d 31 3a 42 3d 30 | 0d 03 0c 15 20 e7 20 59 |1)=1:B=0|.... . Y|
|000008c0| 52 31 3c 30 20 8c 20 59 | 52 31 2b 3d 31 0d 03 16 |R1<0 . Y|R1+=1...|
|000008d0| 1c 20 e7 20 4d 4e 3c 33 | 20 8c 20 4d 4e 31 2b 3d |. . MN<3| . MN1+=|
|000008e0| 31 32 3a 59 52 31 2d 3d | 31 0d 03 20 15 20 e7 20 |12:YR1-=|1.. . . |
|000008f0| 59 52 3c 31 35 38 32 20 | 8c 20 8d 44 48 43 0d 03 |YR<1582 |. .DHC..|
|00000900| 2a 1d 20 e7 20 59 52 3d | 31 35 38 32 20 80 20 4d |*. . YR=|1582 . M|
|00000910| 4e 3c 31 30 20 8c 20 8d | 44 48 43 0d 03 34 25 20 |N<10 . .|DHC..4% |
|00000920| e7 20 59 52 3d 31 35 38 | 32 20 80 20 4d 4e 3d 31 |. YR=158|2 . MN=1|
|00000930| 30 20 80 20 44 59 3c 31 | 35 20 8c 20 8d 44 48 43 |0 . DY<1|5 . .DHC|
|00000940| 0d 03 3e 1e 20 41 3d a8 | 28 59 52 31 2f 31 30 30 |..>. A=.|(YR1/100|
|00000950| 29 3a 42 3d 32 2d 41 2b | a8 28 41 2f 34 29 0d 03 |):B=2-A+|.(A/4)..|
|00000960| 48 13 20 e7 20 59 52 31 | 3c 30 20 8c 20 8d 44 5c |H. . YR1|<0 . .D\|
|00000970| 43 0d 03 52 22 20 43 3d | a8 28 33 36 35 2e 32 35 |C..R" C=|.(365.25|
|00000980| 2a 59 52 31 29 2d 36 39 | 34 30 32 35 3a e5 20 8d |*YR1)-69|4025:. .|
|00000990| 44 66 43 0d 03 5c 25 20 | 43 3d a4 49 54 47 28 28 |DfC..\% |C=.ITG((|
|000009a0| 33 36 35 2e 32 35 2a 59 | 52 31 29 2d 30 2e 37 35 |365.25*Y|R1)-0.75|
|000009b0| 29 2d 36 39 34 30 32 35 | 0d 03 66 19 20 44 3d a8 |)-694025|..f. D=.|
|000009c0| 28 33 30 2e 36 30 30 31 | 2a 28 4d 4e 31 2b 31 29 |(30.6001|*(MN1+1)|
|000009d0| 29 0d 03 70 15 20 44 4a | 44 3d 42 2b 43 2b 44 2b |)..p. DJ|D=B+C+D+|
|000009e0| 44 59 2d 30 2e 35 0d 03 | 7a 06 20 e1 0d 03 84 06 |DY-0.5..|z. .....|
|000009f0| 20 3a 0d 03 8e 0c 20 dd | f2 4f 62 6c 69 71 0d 03 | :.... .|.Obliq..|
|00000a00| 98 12 20 e7 20 46 4c 41 | 47 28 35 29 3d 31 20 e1 |.. . FLA|G(5)=1 .|
|00000a10| 0d 03 a2 0e 20 46 4c 41 | 47 28 35 29 3d 31 0d 03 |.... FLA|G(5)=1..|
|00000a20| ac 18 20 f2 4a 75 6c 64 | 61 79 3a 54 3d 44 4a 44 |.. .Juld|ay:T=DJD|
|00000a30| 2f 33 36 35 32 35 0d 03 | b6 2b 20 43 3d 28 28 28 |/36525..|.+ C=(((|
|00000a40| 2d 31 2e 38 31 45 2d 33 | 2a 54 29 2b 35 2e 39 45 |-1.81E-3|*T)+5.9E|
|00000a50| 2d 33 29 2a 54 2b 34 2e | 36 38 34 35 45 31 29 2a |-3)*T+4.|6845E1)*|
|00000a60| 54 0d 03 c0 1f 20 45 50 | 53 3d 32 2e 33 34 35 32 |T.... EP|S=2.3452|
|00000a70| 32 39 34 34 34 45 31 2d | 28 43 2f 33 36 30 30 29 |29444E1-|(C/3600)|
|00000a80| 0d 03 ca 1c 20 45 50 53 | 52 3d 45 50 53 2a 31 2e |.... EPS|R=EPS*1.|
|00000a90| 37 35 34 33 32 39 32 35 | 32 45 2d 32 0d 03 d4 06 |75432925|2E-2....|
|00000aa0| 20 e1 0d 03 de 06 20 3a | 0d 03 e8 0c 20 dd f2 45 | ..... :|.... ..E|
|00000ab0| 71 65 63 6c 0d 03 f2 17 | 20 e7 20 46 4c 41 47 28 |qecl....| . FLAG(|
|00000ac0| 37 29 3d 31 20 8c 20 8d | 54 64 44 0d 03 fc 0e 20 |7)=1 . .|TdD.... |
|00000ad0| 46 4c 41 47 28 37 29 3d | 31 0d 04 06 19 20 e7 20 |FLAG(7)=|1.... . |
|00000ae0| 46 4c 41 47 28 36 29 3d | 30 20 8c 20 44 45 50 53 |FLAG(6)=|0 . DEPS|
|00000af0| 3d 30 0d 04 10 1f 20 f2 | 4f 62 6c 69 71 3a 45 50 |=0.... .|Obliq:EP|
|00000b00| 53 31 3d a4 52 41 44 28 | 45 50 53 2b 44 45 50 53 |S1=.RAD(|EPS+DEPS|
|00000b10| 29 0d 04 1a 1e 20 53 45 | 50 53 3d b5 28 45 50 53 |).... SE|PS=.(EPS|
|00000b20| 31 29 3a 43 45 50 53 3d | 9b 28 45 50 53 31 29 0d |1):CEPS=|.(EPS1).|
|00000b30| 04 24 14 20 43 59 3d 9b | 28 59 29 3a 53 59 3d b5 |.$. CY=.|(Y):SY=.|
|00000b40| 28 59 29 0d 04 2e 1d 20 | e7 20 94 28 43 59 29 3c |(Y).... |. .(CY)<|
|00000b50| 31 45 2d 32 30 20 8c 20 | 43 59 3d 31 45 2d 32 30 |1E-20 . |CY=1E-20|
|00000b60| 0d 04 38 1d 20 54 59 3d | 53 59 2f 43 59 3a 43 58 |..8. TY=|SY/CY:CX|
|00000b70| 3d 9b 28 58 29 3a 53 58 | 3d b5 28 58 29 0d 04 42 |=.(X):SX|=.(X)..B|
|00000b80| 22 20 53 51 3d 28 53 59 | 2a 43 45 50 53 29 2d 28 |" SQ=(SY|*CEPS)-(|
|00000b90| 43 59 2a 53 45 50 53 2a | 53 58 2a 53 57 33 29 0d |CY*SEPS*|SX*SW3).|
|00000ba0| 04 4c 29 20 51 3d a4 41 | 53 4e 28 53 51 29 3a 41 |.L) Q=.A|SN(SQ):A|
|00000bb0| 3d 28 53 58 2a 43 45 50 | 53 29 2b 28 54 59 2a 53 |=(SX*CEP|S)+(TY*S|
|00000bc0| 45 50 53 2a 53 57 33 29 | 0d 04 56 0e 20 50 3d 99 |EPS*SW3)|..V. P=.|
|00000bd0| 28 41 2f 43 58 29 0d 04 | 60 13 20 e7 20 43 58 3c |(A/CX)..|`. . CX<|
|00000be0| 30 20 8c 20 50 3d 50 2b | af 0d 04 6a 16 20 e7 20 |0 . P=P+|...j. . |
|00000bf0| 50 3e 54 50 49 20 8c 20 | 50 3d 50 2d 54 50 49 0d |P>TPI . |P=P-TPI.|
|00000c00| 04 74 14 20 e7 20 50 3c | 30 20 8c 20 50 3d 50 2b |.t. . P<|0 . P=P+|
|00000c10| 54 50 49 0d 04 7e 06 20 | e1 0d 04 88 06 20 3a 0d |TPI..~. |..... :.|
|00000c20| 04 92 0e 20 dd f2 41 6e | 6f 6d 61 6c 79 0d 04 9c |... ..An|omaly...|
|00000c30| 1c 20 4d 3d 4d 41 2d 54 | 50 49 2a a8 28 4d 41 2f |. M=MA-T|PI*.(MA/|
|00000c40| 54 50 49 29 3a 45 41 3d | 4d 0d 04 a6 17 20 44 4c |TPI):EA=|M.... DL|
|00000c50| 41 3d 45 41 2d 28 53 2a | b5 28 45 41 29 29 2d 4d |A=EA-(S*|.(EA))-M|
|00000c60| 0d 04 b0 18 20 e7 20 94 | 28 44 4c 41 29 3c 31 45 |.... . .|(DLA)<1E|
|00000c70| 2d 36 20 8c 8d 64 4e 44 | 0d 04 ba 1a 20 44 4c 41 |-6 ..dND|.... DLA|
|00000c80| 3d 44 4c 41 2f 28 31 2d | 28 53 2a 9b 28 45 41 29 |=DLA/(1-|(S*.(EA)|
|00000c90| 29 29 0d 04 c4 15 20 45 | 41 3d 45 41 2d 44 4c 41 |)).... E|A=EA-DLA|
|00000ca0| 3a e5 20 8d 74 66 44 0d | 04 ce 20 20 54 4e 55 32 |:. .tfD.|..  TNU2|
|00000cb0| 3d b6 28 28 31 2b 53 29 | 2f 28 31 2d 53 29 29 2a |=.((1+S)|/(1-S))*|
|00000cc0| b7 28 45 41 2f 32 29 0d | 04 d8 11 20 4e 55 3d 32 |.(EA/2).|... NU=2|
|00000cd0| 2a 99 28 54 4e 55 32 29 | 0d 04 e2 06 20 e1 0d 04 |*.(TNU2)|.... ...|
|00000ce0| ec 06 20 3a 0d 04 f6 0a | 20 dd f2 53 75 6e 0d 05 |.. :....| ..Sun..|
|00000cf0| 00 1f 20 f2 4a 75 6c 64 | 61 79 3a 54 3d 44 4a 44 |.. .Juld|ay:T=DJD|
|00000d00| 2f 33 36 35 32 35 3a 54 | 32 3d 54 2a 54 0d 05 0a |/36525:T|2=T*T...|
|00000d10| 25 20 41 3d 31 2e 30 30 | 30 30 32 31 33 35 39 45 |% A=1.00|0021359E|
|00000d20| 32 2a 54 3a 42 3d 33 36 | 30 2a 28 41 2d a8 28 41 |2*T:B=36|0*(A-.(A|
|00000d30| 29 29 0d 05 14 21 20 4c | 53 3d 32 2e 37 39 36 39 |))...! L|S=2.7969|
|00000d40| 36 36 38 45 32 2b 33 2e | 30 32 35 45 2d 34 2a 54 |668E2+3.|025E-4*T|
|00000d50| 32 2b 42 0d 05 1e 25 20 | 41 3d 39 2e 39 39 39 37 |2+B...% |A=9.9997|
|00000d60| 33 36 30 34 32 45 31 2a | 54 3a 42 3d 33 36 30 2a |36042E1*|T:B=360*|
|00000d70| 28 41 2d a8 28 41 29 29 | 0d 05 28 2a 20 4d 53 3d |(A-.(A))|..(* MS=|
|00000d80| 33 2e 35 38 34 37 35 38 | 33 45 32 2d 28 31 2e 35 |3.584758|3E2-(1.5|
|00000d90| 45 2d 34 2b 33 2e 33 45 | 2d 36 2a 54 29 2a 54 32 |E-4+3.3E|-6*T)*T2|
|00000da0| 2b 42 0d 05 32 27 20 53 | 3d 31 2e 36 37 35 31 30 |+B..2' S|=1.67510|
|00000db0| 34 45 2d 32 2d 34 2e 31 | 38 45 2d 35 2a 54 2d 31 |4E-2-4.1|8E-5*T-1|
|00000dc0| 2e 32 36 45 2d 37 2a 54 | 32 0d 05 3c 19 20 4d 41 |.26E-7*T|2..<. MA|
|00000dd0| 3d a4 52 41 44 28 4d 53 | 29 3a f2 41 6e 6f 6d 61 |=.RAD(MS|):.Anoma|
|00000de0| 6c 79 0d 05 46 25 20 41 | 3d 36 2e 32 35 35 32 30 |ly..F% A|=6.25520|
|00000df0| 39 34 37 32 45 31 2a 54 | 3a 42 3d 33 36 30 2a 28 |9472E1*T|:B=360*(|
|00000e00| 41 2d a8 28 41 29 29 0d | 05 50 16 20 41 31 3d a4 |A-.(A)).|.P. A1=.|
|00000e10| 52 41 44 28 31 35 33 2e | 32 33 2b 42 29 0d 05 5a |RAD(153.|23+B)..Z|
|00000e20| 25 20 41 3d 31 2e 32 35 | 31 30 34 31 38 39 34 45 |% A=1.25|1041894E|
|00000e30| 32 2a 54 3a 42 3d 33 36 | 30 2a 28 41 2d a8 28 41 |2*T:B=36|0*(A-.(A|
|00000e40| 29 29 0d 05 64 16 20 42 | 31 3d a4 52 41 44 28 32 |))..d. B|1=.RAD(2|
|00000e50| 31 36 2e 35 37 2b 42 29 | 0d 05 6e 25 20 41 3d 39 |16.57+B)|..n% A=9|
|00000e60| 2e 31 35 36 37 36 36 30 | 32 38 45 31 2a 54 3a 42 |.1567660|28E1*T:B|
|00000e70| 3d 33 36 30 2a 28 41 2d | a8 28 41 29 29 0d 05 78 |=360*(A-|.(A))..x|
|00000e80| 16 20 43 31 3d a4 52 41 | 44 28 33 31 32 2e 36 39 |. C1=.RA|D(312.69|
|00000e90| 2b 42 29 0d 05 82 25 20 | 41 3d 31 2e 32 33 36 38 |+B)...% |A=1.2368|
|00000ea0| 35 33 30 39 35 45 33 2a | 54 3a 42 3d 33 36 30 2a |53095E3*|T:B=360*|
|00000eb0| 28 41 2d a8 28 41 29 29 | 0d 05 8c 21 20 44 31 3d |(A-.(A))|...! D1=|
|00000ec0| a4 52 41 44 28 33 35 30 | 2e 37 34 2d 31 2e 34 34 |.RAD(350|.74-1.44|
|00000ed0| 45 2d 33 2a 54 32 2b 42 | 29 0d 05 96 1b 20 45 31 |E-3*T2+B|).... E1|
|00000ee0| 3d a4 52 41 44 28 32 33 | 31 2e 31 39 2b 32 30 2e |=.RAD(23|1.19+20.|
|00000ef0| 32 2a 54 29 0d 05 a0 25 | 20 41 3d 31 2e 38 33 31 |2*T)...%| A=1.831|
|00000f00| 33 35 33 32 30 38 45 32 | 2a 54 3a 42 3d 33 36 30 |353208E2|*T:B=360|
|00000f10| 2a 28 41 2d a8 28 41 29 | 29 0d 05 aa 15 20 48 31 |*(A-.(A)|).... H1|
|00000f20| 3d a4 52 41 44 28 33 35 | 33 2e 34 2b 42 29 0d 05 |=.RAD(35|3.4+B)..|
|00000f30| b4 4a 20 44 4c 3d 31 2e | 33 34 45 2d 33 2a 9b 28 |.J DL=1.|34E-3*.(|
|00000f40| 41 31 29 2b 31 2e 35 34 | 45 2d 33 2a 9b 28 42 31 |A1)+1.54|E-3*.(B1|
|00000f50| 29 2b 32 45 2d 33 2a 9b | 28 43 31 29 2b 31 2e 37 |)+2E-3*.|(C1)+1.7|
|00000f60| 39 45 2d 33 2a b5 28 44 | 31 29 2b 31 2e 37 38 45 |9E-3*.(D|1)+1.78E|
|00000f70| 2d 33 2a b5 28 45 31 29 | 0d 05 be 50 20 44 52 3d |-3*.(E1)|...P DR=|
|00000f80| 35 2e 34 33 45 2d 36 2a | b5 28 41 31 29 2b 31 2e |5.43E-6*|.(A1)+1.|
|00000f90| 35 37 35 45 2d 35 2a b5 | 28 42 31 29 2b 31 2e 36 |575E-5*.|(B1)+1.6|
|00000fa0| 32 37 45 2d 35 2a b5 28 | 43 31 29 2b 33 2e 30 37 |27E-5*.(|C1)+3.07|
|00000fb0| 36 45 2d 35 2a 9b 28 44 | 31 29 2b 39 2e 32 37 45 |6E-5*.(D|1)+9.27E|
|00000fc0| 2d 36 2a b5 28 48 31 29 | 0d 05 c8 1a 20 4c 53 4e |-6*.(H1)|.... LSN|
|00000fd0| 3d 4e 55 2b a4 52 41 44 | 28 4c 53 2d 4d 53 2b 44 |=NU+.RAD|(LS-MS+D|
|00000fe0| 4c 29 0d 05 d2 21 20 52 | 53 4e 3d 31 2e 30 30 30 |L)...! R|SN=1.000|
|00000ff0| 30 30 30 32 2a 28 31 2d | 53 2a 9b 28 45 41 29 29 |0002*(1-|S*.(EA))|
|00001000| 2b 44 52 0d 05 dc 20 20 | e7 20 4c 53 4e 3c 30 20 |+DR...  |. LSN<0 |
|00001010| 8c 20 4c 53 4e 3d 4c 53 | 4e 2b 54 50 49 3a e5 8d |. LSN=LS|N+TPI:..|
|00001020| 64 5c 45 0d 05 e6 23 20 | e7 20 4c 53 4e 3e 54 50 |d\E...# |. LSN>TP|
|00001030| 49 20 8c 20 4c 53 4e 3d | 4c 53 4e 2d 54 50 49 3a |I . LSN=|LSN-TPI:|
|00001040| e5 20 8d 64 66 45 0d 05 | f0 06 20 e1 0d 05 fa 06 |. .dfE..|.. .....|
|00001050| 20 3a 0d 06 04 0c 20 dd | f2 43 6f 6d 65 74 0d 06 | :.... .|.Comet..|
|00001060| 0e 0c 20 f2 4a 75 6c 64 | 61 79 0d 06 18 2a 20 57 |.. .Juld|ay...* W|
|00001070| 3d 28 28 44 4a 44 2d 44 | 4a 44 30 29 2a 33 2e 36 |=((DJD-D|JD0)*3.6|
|00001080| 34 39 31 31 36 45 2d 32 | 29 2f 28 51 50 2a b6 28 |49116E-2|)/(QP*.(|
|00001090| 51 50 29 29 0d 06 22 0a | 20 53 3d 57 2f 33 0d 06 |QP))..".| S=W/3..|
|000010a0| 2c 18 20 53 32 3d 53 2a | 53 3a 44 3d 28 53 32 2b |,. S2=S*|S:D=(S2+|
|000010b0| 33 29 2a 53 2d 57 0d 06 | 36 33 20 e7 20 94 28 44 |3)*S-W..|63 . .(D|
|000010c0| 29 3e 31 45 2d 34 20 8c | 20 53 3d 28 28 32 2a 53 |)>1E-4 .| S=((2*S|
|000010d0| 2a 53 32 29 2b 57 29 2f | 28 33 2a 28 53 32 2b 31 |*S2)+W)/|(3*(S2+1|
|000010e0| 29 29 3a e5 20 8d 54 6c | 46 0d 06 40 22 20 4e 55 |)):. .Tl|F..@" NU|
|000010f0| 3d 32 2a 99 28 53 29 3a | 52 3d 51 50 2a 28 31 2b |=2*.(S):|R=QP*(1+|
|00001100| 53 32 29 3a 4c 3d 4e 55 | 2b 41 50 0d 06 4a 23 20 |S2):L=NU|+AP..J# |
|00001110| 53 4c 3d b5 28 4c 29 3a | 43 4c 3d 9b 28 4c 29 3a |SL=.(L):|CL=.(L):|
|00001120| 53 50 53 49 3d 53 4c 2a | b5 28 49 4e 43 29 0d 06 |SPSI=SL*|.(INC)..|
|00001130| 54 1f 20 50 53 49 3d a4 | 41 53 4e 28 53 50 53 49 |T. PSI=.|ASN(SPSI|
|00001140| 29 3a 59 3d 53 4c 2a 9b | 28 49 4e 43 29 0d 06 5e |):Y=SL*.|(INC)..^|
|00001150| 1e 20 4c 44 3d 99 28 59 | 2f 43 4c 29 2b 4f 4d 3a |. LD=.(Y|/CL)+OM:|
|00001160| 43 50 53 49 3d 9b 28 50 | 53 49 29 0d 06 68 15 20 |CPSI=.(P|SI)..h. |
|00001170| e7 20 43 4c 3c 30 20 8c | 20 4c 44 3d 4c 44 2b af |. CL<0 .| LD=LD+.|
|00001180| 0d 06 72 20 20 e7 20 4c | 44 3e 54 50 49 20 8c 20 |..r  . L|D>TPI . |
|00001190| 4c 44 3d 4c 44 2d 54 50 | 49 3a e5 20 8d 44 72 46 |LD=LD-TP|I:. .DrF|
|000011a0| 0d 06 7c 1c 20 52 44 3d | 52 2a 43 50 53 49 3a f2 |..|. RD=|R*CPSI:.|
|000011b0| 53 75 6e 3a 4c 47 3d 4c | 53 4e 2b af 0d 06 86 14 |Sun:LG=L|SN+.....|
|000011c0| 20 52 45 3d 52 53 4e 3a | 4c 4c 3d 4c 44 2d 4c 47 | RE=RSN:|LL=LD-LG|
|000011d0| 0d 06 90 18 20 43 4c 4c | 3d 9b 28 4c 4c 29 3a 53 |.... CLL|=.(LL):S|
|000011e0| 4c 4c 3d b5 28 4c 4c 29 | 0d 06 9a 27 20 52 48 4f |LL=.(LL)|...' RHO|
|000011f0| 3d b6 28 28 52 45 2a 52 | 45 29 2b 28 52 2a 52 29 |=.((RE*R|E)+(R*R)|
|00001200| 2d 28 32 2a 52 45 2a 52 | 44 2a 43 4c 4c 29 29 0d |-(2*RE*R|D*CLL)).|
|00001210| 06 a4 12 20 e7 20 52 44 | 3c 52 45 20 8c 8d 64 42 |... . RD|<RE ..dB|
|00001220| 46 0d 06 ae 25 20 4c 41 | 4d 3d 99 28 28 52 45 2a |F...% LA|M=.((RE*|
|00001230| 53 4c 4c 29 2f 28 52 44 | 2d 28 52 45 2a 43 4c 4c |SLL)/(RD|-(RE*CLL|
|00001240| 29 29 29 2b 4c 44 0d 06 | b8 0b 20 e5 20 8d 64 4c |)))+LD..|.. . .dL|
|00001250| 46 0d 06 c2 2a 20 4c 41 | 4d 3d 99 28 28 2d 31 2a |F...* LA|M=.((-1*|
|00001260| 52 44 2a 53 4c 4c 29 2f | 28 52 45 2d 28 52 44 2a |RD*SLL)/|(RE-(RD*|
|00001270| 43 4c 4c 29 29 29 2b 4c | 47 2b af 0d 06 cc 21 20 |CLL)))+L|G+....! |
|00001280| e7 20 4c 41 4d 3c 30 20 | 8c 20 4c 41 4d 3d 4c 41 |. LAM<0 |. LAM=LA|
|00001290| 4d 2b 54 50 49 3a e5 20 | 8d 64 4c 46 0d 06 d6 22 |M+TPI:. |.dLF..."|
|000012a0| 20 e7 4c 41 4d 3e 54 50 | 49 20 8c 20 4c 41 4d 3d | .LAM>TP|I . LAM=|
|000012b0| 4c 41 4d 2d 54 50 49 3a | e5 20 8d 64 56 46 0d 06 |LAM-TPI:|. .dVF..|
|000012c0| e0 29 20 54 42 3d 28 52 | 44 2a 53 50 53 49 2a b5 |.) TB=(R|D*SPSI*.|
|000012d0| 28 4c 41 4d 2d 4c 44 29 | 29 2f 28 43 50 53 49 2a |(LAM-LD)|)/(CPSI*|
|000012e0| 52 45 2a 53 4c 4c 29 0d | 06 ea 0e 20 42 45 54 3d |RE*SLL).|... BET=|
|000012f0| 99 28 54 42 29 0d 06 f4 | 06 20 e1 0d 06 fe 06 20 |.(TB)...|. ..... |
|00001300| 3a 0d 07 08 0e 20 dd f2 | 52 65 64 65 6c 6d 74 0d |:.... ..|Redelmt.|
|00001310| 07 12 23 20 44 59 3d 44 | 59 41 3a 4d 4e 3d 4d 4e |..# DY=D|YA:MN=MN|
|00001320| 41 3a 59 52 3d 59 52 41 | 3a 46 4c 41 47 28 31 29 |A:YR=YRA|:FLAG(1)|
|00001330| 3d 30 0d 07 1c 1a 20 f2 | 4a 75 6c 64 61 79 3a 54 |=0.... .|Julday:T|
|00001340| 30 3d 44 4a 44 2f 33 36 | 35 32 35 30 0d 07 26 23 |0=DJD/36|5250..&#|
|00001350| 20 44 59 3d 44 59 42 3a | 4d 4e 3d 4d 4e 42 3a 59 | DY=DYB:|MN=MNB:Y|
|00001360| 52 3d 59 52 42 3a 46 4c | 41 47 28 31 29 3d 30 0d |R=YRB:FL|AG(1)=0.|
|00001370| 07 30 1a 20 f2 4a 75 6c | 64 61 79 3a 54 31 3d 44 |.0. .Jul|day:T1=D|
|00001380| 4a 44 2f 33 36 35 32 35 | 30 0d 07 3a 17 20 54 54 |JD/36525|0..:. TT|
|00001390| 3d 54 31 2d 54 30 3a 54 | 54 32 3d 54 54 2a 54 54 |=T1-T0:T|T2=TT*TT|
|000013a0| 0d 07 44 19 20 54 30 32 | 3d 54 30 2a 54 30 3a 54 |..D. T02|=T0*T0:T|
|000013b0| 54 33 3d 54 54 2a 54 54 | 32 0d 07 4e 41 20 45 54 |T3=TT*TT|2..NA ET|
|000013c0| 41 3d 28 34 37 31 2e 30 | 37 2d 36 2e 37 35 2a 54 |A=(471.0|7-6.75*T|
|000013d0| 30 2b 30 2e 35 37 2a 54 | 30 32 29 2a 54 54 2b 28 |0+0.57*T|02)*TT+(|
|000013e0| 30 2e 35 37 2a 54 30 2d | 33 2e 33 37 29 2a 54 54 |0.57*T0-|3.37)*TT|
|000013f0| 32 2b 30 2e 30 35 2a 54 | 54 33 0d 07 58 2e 20 54 |2+0.05*T|T3..X. T|
|00001400| 48 30 3d 33 32 38 36 39 | 2a 54 30 2b 35 36 2a 54 |H0=32869|*T0+56*T|
|00001410| 30 32 2d 28 38 36 39 34 | 2b 35 35 2a 54 30 29 2a |02-(8694|+55*T0)*|
|00001420| 54 54 2b 33 2a 54 54 32 | 0d 07 62 17 20 45 54 41 |TT+3*TT2|..b. ETA|
|00001430| 3d a4 52 41 44 28 45 54 | 41 2f 33 36 30 30 29 0d |=.RAD(ET|A/3600).|
|00001440| 07 6c 24 20 54 48 30 3d | a4 52 41 44 28 28 54 48 |.l$ TH0=|.RAD((TH|
|00001450| 30 2f 33 36 30 30 29 2b | 31 37 33 2e 39 35 30 38 |0/3600)+|173.9508|
|00001460| 33 33 29 0d 07 76 45 20 | 54 48 3d 28 35 30 32 35 |33)..vE |TH=(5025|
|00001470| 36 2e 34 31 2b 32 32 32 | 2e 32 39 2a 54 30 2b 30 |6.41+222|.29*T0+0|
|00001480| 2e 32 36 2a 54 30 32 29 | 2a 54 54 2b 28 31 31 31 |.26*T02)|*TT+(111|
|00001490| 2e 31 35 2b 30 2e 32 36 | 2a 54 30 29 2a 54 54 32 |.15+0.26|*T0)*TT2|
|000014a0| 2b 30 2e 31 2a 54 54 33 | 0d 07 80 26 20 54 48 3d |+0.1*TT3|...& TH=|
|000014b0| 54 48 30 2b a4 52 41 44 | 28 54 48 2f 33 36 30 30 |TH0+.RAD|(TH/3600|
|000014c0| 29 3a 43 49 4e 43 3d 9b | 28 49 4e 43 30 29 0d 07 |):CINC=.|(INC0)..|
|000014d0| 8a 26 20 53 54 4e 43 3d | b5 28 49 4e 43 30 29 3a |.& STNC=|.(INC0):|
|000014e0| 4f 54 3d 4f 4d 30 2d 54 | 48 30 3a 53 4f 54 3d b5 |OT=OM0-T|H0:SOT=.|
|000014f0| 28 4f 54 29 0d 07 94 1a | 20 43 4f 54 3d 9b 28 4f |(OT)....| COT=.(O|
|00001500| 54 29 3a 53 45 54 41 3d | b5 28 45 54 41 29 0d 07 |T):SETA=|.(ETA)..|
|00001510| 9e 1b 20 43 45 54 41 3d | 9b 28 45 54 41 29 3a 41 |.. CETA=|.(ETA):A|
|00001520| 3d 53 54 4e 43 2a 53 4f | 54 0d 07 a8 29 20 42 3d |=STNC*SO|T...) B=|
|00001530| 43 45 54 41 2a 53 54 4e | 43 2a 43 4f 54 2d 53 45 |CETA*STN|C*COT-SE|
|00001540| 54 41 2a 43 49 4e 43 3a | 4f 54 31 3d 99 28 41 2f |TA*CINC:|OT1=.(A/|
|00001550| 42 29 0d 07 b2 16 20 e7 | 20 42 3c 30 20 8c 20 4f |B).... .| B<0 . O|
|00001560| 54 31 3d 4f 54 31 2b af | 0d 07 bc 1e 20 42 3d 53 |T1=OT1+.|.... B=S|
|00001570| 54 4e 43 2a 43 45 54 41 | 2d 43 49 4e 43 2a 53 45 |TNC*CETA|-CINC*SE|
|00001580| 54 41 2a 43 4f 54 0d 07 | c6 1d 20 41 3d 2d 31 2a |TA*COT..|.. A=-1*|
|00001590| 53 45 54 41 2a 53 4f 54 | 3a 44 41 50 3d 99 28 41 |SETA*SOT|:DAP=.(A|
|000015a0| 2f 42 29 0d 07 d0 16 20 | e7 20 42 3c 30 20 8c 20 |/B).... |. B<0 . |
|000015b0| 44 41 50 3d 44 41 50 2b | af 0d 07 da 1b 20 58 3d |DAP=DAP+|..... X=|
|000015c0| 41 50 30 2b 44 41 50 3a | f2 41 64 6a 75 73 74 3a |AP0+DAP:|.Adjust:|
|000015d0| 41 50 3d 58 0d 07 e4 1a | 20 58 3d 4f 54 31 2b 54 |AP=X....| X=OT1+T|
|000015e0| 48 3a f2 41 64 6a 75 73 | 74 3a 4f 4d 3d 58 0d 07 |H:.Adjus|t:OM=X..|
|000015f0| ee 28 20 e7 20 49 4e 43 | 30 3c 30 2e 31 37 35 20 |.( . INC|0<0.175 |
|00001600| 8c 20 49 4e 43 3d a4 41 | 53 4e 28 41 2f b5 28 44 |. INC=.A|SN(A/.(D|
|00001610| 41 50 29 29 3a e1 0d 07 | f8 25 20 43 49 4e 43 3d |AP)):...|.% CINC=|
|00001620| 28 43 49 4e 43 2a 43 45 | 54 41 29 2b 28 53 54 4e |(CINC*CE|TA)+(STN|
|00001630| 43 2a 53 45 54 41 2a 43 | 4f 54 29 0d 08 02 1f 20 |C*SETA*C|OT).... |
|00001640| 49 4e 43 3d 31 2e 35 37 | 30 37 39 36 33 32 37 2d |INC=1.57|0796327-|
|00001650| a4 41 53 4e 28 43 49 4e | 43 29 0d 08 0c 06 20 e1 |.ASN(CIN|C).... .|
|00001660| 0d 08 16 06 20 3a 0d 08 | 20 0d 20 dd f2 41 64 6a |.... :..| . ..Adj|
|00001670| 75 73 74 0d 08 2a 18 20 | e7 20 58 3c 30 20 8c 20 |ust..*. |. X<0 . |
|00001680| 58 3d 58 2b af 3a e5 8d | 54 6a 48 0d 08 34 1c 20 |X=X+.:..|TjH..4. |
|00001690| e7 20 58 3e 54 50 49 20 | 8c 20 58 3d 58 2d 54 50 |. X>TPI |. X=X-TP|
|000016a0| 49 3a e5 8d 54 74 48 0d | 08 3e 06 20 e1 0d 08 48 |I:..TtH.|.>. ...H|
|000016b0| 06 20 3a 0d 08 52 3d 20 | f4 20 41 63 6b 6e 6f 77 |. :..R= |. Acknow|
|000016c0| 6c 65 64 67 65 6d 65 6e | 74 3a 20 41 53 54 52 4f |ledgemen|t: ASTRO|
|000016d0| 4e 4f 4d 59 20 57 49 54 | 48 20 59 4f 55 52 20 50 |NOMY WIT|H YOUR P|
|000016e0| 45 52 53 4f 4e 41 4c 20 | 43 4f 4d 50 55 54 45 52 |ERSONAL |COMPUTER|
|000016f0| 0d 08 5c 2b 20 f4 20 20 | 20 20 20 20 20 20 20 20 |..\+ .  |        |
|00001700| 20 20 20 20 20 20 20 20 | 50 65 74 65 72 20 44 75 |        |Peter Du|
|00001710| 66 66 65 74 74 2d 53 6d | 69 74 68 0d 08 66 38 20 |ffett-Sm|ith..f8 |
|00001720| f4 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001730| 20 20 20 43 61 6d 62 72 | 69 64 67 65 20 55 6e 69 |   Cambr|idge Uni|
|00001740| 76 65 72 73 69 74 79 20 | 50 72 65 73 73 20 20 31 |versity |Press  1|
|00001750| 39 38 35 0d 08 70 2d 20 | f4 20 41 64 61 70 74 65 |985..p- |. Adapte|
|00001760| 64 20 62 79 3a 20 20 20 | 20 20 20 44 41 41 46 20 |d by:   |   DAAF |
|00001770| 44 75 6c 77 69 63 68 20 | 44 65 63 20 31 39 38 38 |Dulwich |Dec 1988|
|00001780| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+